'   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '       P K - P O S   v 1   -   2 8 / 1 1 / 2 0 2 4 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 
 
 N u m e r o C a s s e t t e   =   1 4 
 
 
 
 S t r i n g   F i l e N a m e       =   " D a t i C a s s e t t e " 
 
 S t r i n g   E x t e n s i o n     =   " . c s v " 
 
 S t r i n g   F i l e P a t h A n d N a m e 
 
 S t r i n g     I n t e s t a z i o n i 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   B U T T O N S 
 
 F o r   v 1   =   1   T o   N u m e r o C a s s e t t e 
 
 	 v 2   =   v 1 
 
 	 I f   v 2   >   N u m e r o C a s s e t t e   /   2 
 
 	 	 v 2   =   v 2   +   1 6   -   N u m e r o C a s s e t t e   /   2 
 
 	 E n d I f 
 
 	 B u t t o n   v 2   L a b e l   " P o s t "   +   v 1 
 
 	 B u t t o n   v 2   C o l o r   H o n e y d e w 
 
 N e x t 
 
 B u t t o n   3 3   L a b e l   D a t a 
 
 B u t t o n   3 3   C o l o r   Y e l l o w 9 
 
 B u t t o n   3 5   L a b e l   A p r i C a r t e l l a 
 
 B u t t o n   3 5   C o l o r   Y e l l o w 9 
 
 B u t t o n   3 6   L a b e l   A p r i F i l e 
 
 B u t t o n   3 6   C o l o r   Y e l l o w 9 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   I N I T 
 
 O p t i o n   S p e e d   9 
 
 
 
 s 1   =   N o w 
 
 F i l e P a t h A n d N a m e   =   F i l e N a m e   +   " _ "   +   L e f t ( s 1 ,   1 0 )   +   E x t e n s i o n 
 
 F i l e P a t h A n d N a m e   =   R e p l a c e ( F i l e P a t h A n d N a m e ,   " / " ,   " _ " ) 
 
 
 
 I n t e s t a z i o n i   =   " D a t a ; O r a ; " 
 
 F o r   V 1   =   1   T o   N u m e r o C a s s e t t e 
 
 	 I n t e s t a z i o n i   =   I n t e s t a z i o n i   +   " P o s "   +   V 1   +   " ; " 
 
 N e x t 
 
 I n t e s t a z i o n i   =   I n t e s t a z i o n i   +   C R L F 
 
 S a v e   S t r i n g T o F i l e   I n t e s t a z i o n i   F i l e P a t h A n d N a m e 
 
 
 
 W i n d o w   M i n S i z e 
 
 L o a d   T h e r e m i n o _ H a l . e x e 
 
 G o s u b   M a i n L o o p 
 
 S t o p 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   C L O S E   A P P L I C A T I O N 
 
 L a b e l   E v e n t S t o p 
 
 	 L o a d   C l o s e A p p s   T h e r e m i n o _ H a l . e x e 
 
 	 W i n d o w   S i z a b l e 
 
 E n d 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   M A I N   L O O P 
 
 L a b e l   M a i n L o o p 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   T e s t   S L O T S 
 
 	 N u m e r i c   N u m e r o C a s s e t t e 
 
 	 N u m e r i c   C a s s e t t a 
 
 	 F o r   C a s s e t t a   =   1   T o   N u m e r o C a s s e t t e 
 
 	 	 I f   S l o t ( C a s s e t t a )   < >   A r r a y 1 ( C a s s e t t a ) 
 
 	 	 	 A r r a y 1 ( C a s s e t t a )   =   S l o t ( C a s s e t t a ) 
 
 	 	 	 I f   S l o t ( C a s s e t t a )   =   0 
 
 	 	 	 	 A d d C a s s e t t a 
 
 	 	 	 E n d I f 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   P r i n t   T I M E 
 
 	 B u t t o n   D a t a   T e x t     "     "   +   N o w 
 
 G o t o   M a i n L o o p 
 
 
 
 L a b e l   A d d C a s s e t t a 
 
 	 A r r a y 2 ( C a s s e t t a )   =   A r r a y 2 ( C a s s e t t a )   +   1 
 
 	 B u t t o n   C a s s e t t a   T e x t   " P o s t   "   +   C a s s e t t a   +   "   =   "   +   A r r a y 2 ( C a s s e t t a ) 
 
 	 B e e p   7 0 0   1 0 
 
 	 S a v e F i l e 
 
 R e t u r n 
 
 
 
 L a b e l   S a v e F i l e 
 
 	 s 1   =   N o w   +   " ; " 
 
 	 F o r   v 1   =   1   T o   N u m e r o C a s s e t t e 
 
 	 	 s 1   =   s 1   +   A r r a y 2 ( v 1 )   +   " ; " 
 
 	 N e x t 
 
 	 s 1   =   L e f t ( s 1 ,   L e n ( s 1 )   -   1 ) 
 
 	 S a v e   S t r i n g T o F i l e   s 1   F i l e P a t h A n d N a m e 
 
 R e t u r n 
 
 
 
 L a b e l   A p r i F i l e 
 
 	 L o a d   F i l e P a t h A n d N a m e 
 
 R e t u r n 
 
 
 
 L a b e l   A p r i C a r t e l l a 
 
 	 L o a d   " . \ F i l e s " 
 
 R e t u r n 
 
 
 
 
 
 ' B O O K M A R K S   
 
 
 
 ' E D I T E D L I N E S   7 0   1 0   
 
 
 
 ' W A T C H   
 
 ' W A T C H   
 
 ' W A T C H   
 
 ' W A T C H   A r r a y 1 
 
 